home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / data / nifhand / m.aut < prev    next >
Text File  |  1991-10-18  |  2KB  |  159 lines
  1. %901=3        ;ダウンロード-----+
  2. %902=100    ;未読処理を起動---+--するときの最少の会議室未読発言数
  3. %903=200    ;会議室登録を起動-+
  4.  
  5. IF ($63=="RC" || $63=="rc") || ($63=="R" || $63=="r")
  6.  DO RC
  7. ENDIF
  8. IF ($64=="TOROKU" || $64=="toroku") || ($64=="T" || $64=="t")
  9.  DO TOROKU
  10. ENDIF
  11. IF ($65=="HANDLE" || $65=="handle") || ($65=="H" || $65=="h")
  12.  DO HANDLE
  13. ENDIF
  14. $63=$64=$65=""
  15.  
  16. %3=0
  17. %4=0
  18. %6=0
  19.  
  20. IF (($61=="" || $61=="MRE") || $61=="mre") || ($61=="MREAD" || $61=="mread")
  21.  GOTO MRE
  22. ELSE
  23.  GOTO M
  24. ENDIF
  25.  
  26. LABEL M
  27. SEND "SET PAGE OFF\r",1
  28. LOOK
  29.  CASE "^J＞"
  30.  CASE ">"
  31. FREE
  32. SEND "MES $61\r",1
  33. $61=""
  34.  
  35. LABEL M1
  36. %3=%3+1
  37.  
  38. LABEL M2
  39. LOOK
  40.  CASE "◆該当する会議室があり"
  41.   LOOK
  42.    CASE "^J＞"
  43.    CASE ">"
  44.   FREE
  45.   ECHO "\r^G正しく入力すれば立ち直ります (例：MES OO ) ＞"
  46.   GOTO M2
  47.  CASE "^JCCS(N)>"
  48.   SEND "\r",1
  49.   GOTO M2
  50.  CASE "^J－会"
  51.   SCAN "室" %4 " "
  52.  CASE "^J－これ以上の発言"
  53.   WAIT "^JCCS(N)>"
  54.   CMD D
  55.   END
  56. FREE
  57.  
  58. IF %3>1
  59.  CMD D
  60. ENDIF
  61.  
  62. IF %4<10
  63.  $901="M0%4$943"
  64. ELSE
  65.  $901="M%4$943"
  66. ENDIF
  67.  
  68. WAIT "^JCCS(N)>"
  69. %4=0
  70. CMD D "$900:\\$60\\$901.LOG"
  71. SEND "\r",1
  72. GOTO M1
  73.  
  74.  
  75. LABEL MRE
  76. $61=""
  77. SEND "MES\r",1
  78. WAIT "^J番号"
  79.  
  80. LABEL MR
  81. WAIT "\r"
  82. LOOK
  83.  CASE " "
  84.   SCAN "(" %5 ")",5
  85.   %6=%6+%5
  86.   GOTO MR
  87.  CASE "^J＞"
  88.   IF %6<%901
  89.    ECHO "^G未読の発言数:(%6) が設定値:(%901) より小さいのでスキップします ＞"
  90.    END
  91.   ELSEIF %6>%902
  92.    IF %6>%903
  93.      ECHO "\r未読の発言数:(%6) が設定値:(%903) を越えています"
  94.      ECHO "\r  会議室登録の変更を行いますか？ (Y/N) (ﾘﾀｰﾝｷｰ不要) ＞"
  95.      LOOKKEY 60
  96.       CASE "Y"
  97.        DO TOROKU
  98.       CASE "y"
  99.        DO TOROKU
  100.       CASE "N"
  101.       CASE "n"
  102.       CASE/TIMEOUT
  103.        END
  104.       FREE
  105.     ENDIF
  106.    ECHO "\r未読の発言数:(%6) が設定値:(%902) を越えています"
  107.    ECHO "\r^G  未読分の処理を行いますか？ (Y/N) (ﾘﾀｰﾝｷｰ不要) ＞"
  108.    LOOKKEY 60
  109.     CASE "Y"
  110.      DO RC
  111.      SEND "MES\r",1
  112.      WAIT "^J＞"
  113.     CASE "y"
  114.      DO RC
  115.      SEND "MES\r",1
  116.      WAIT "^J＞"
  117.     CASE "N"
  118.     CASE "n"
  119.     CASE/TIMEOUT
  120.      END
  121.    FREE
  122.   ENDIF
  123. FREE
  124.  
  125. SEND "MRE\r\r",1
  126.  
  127. LABEL MRE1
  128. %3=%3+1
  129. LOOK
  130.  CASE "^J- ME"
  131.   SCAN "(" %4 ")"
  132.  CASE "^J- $60"
  133.   SCAN "(" %4 ")"
  134.  CASE "◆現在未読の発言"
  135.   WAIT "◆次頁はあり"
  136.   WAIT "^J＞"
  137.   END
  138.  CASE "◆次頁はありません◆"
  139.   WAIT "^J＞"
  140.   CMD D
  141.   END
  142. FREE
  143.  
  144. IF %3>1
  145.  CMD D
  146. ENDIF
  147.  
  148. IF %4<10
  149.  $901="M0%4$943"
  150. ELSE
  151.  $901="M%4$943"
  152. ENDIF
  153.  
  154. WAIT " -"
  155. CMD D "$900:\\$60\\$901.LOG"
  156. %4=0
  157. GOTO MRE1
  158.  
  159.